﻿' ******************************************************************************
' ** 
' **  Yahoo! Managed
' **  Written by Marius Häusler 2011
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2011 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace YahooManaged.Search.BOSS


    Public Class FileTypeGroup

        Private mFileTypes As New List(Of WebFileType)
        Public ReadOnly Property FileTypes() As List(Of WebFileType)
            Get
                Return mFileTypes
            End Get
        End Property


#Region "Shared"

        Public Shared Function GetMsOffice() As FileTypeGroup
            Dim grp As New FileTypeGroup
            grp.FileTypes.Add(WebFileType.Xl)
            grp.FileTypes.Add(WebFileType.MsWord)
            grp.FileTypes.Add(WebFileType.Ppt)
            Return grp
        End Function
        Public Shared Function GetNonHtml() As FileTypeGroup
            Dim grp As New FileTypeGroup
            grp.FileTypes.Add(WebFileType.Text)
            grp.FileTypes.Add(WebFileType.Pdf)
            grp.FileTypes.Add(WebFileType.Xl)
            grp.FileTypes.Add(WebFileType.MsWord)
            grp.FileTypes.Add(WebFileType.Ppt)
            Return grp
        End Function

#End Region

    End Class


End Namespace
